calculate_decrements Subroutine

public subroutine calculate_decrements(pa, yn2, ptet, yn3, ynpopq, xnr, jr, izn)

pdec1=-pdecv*dfdv

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	pa
real(kind=wp),	intent(in)			::	yn2
real(kind=wp),	intent(in)			::	ptet
real(kind=wp),	intent(in)			::	yn3
real(kind=wp),	intent(in)			::	ynpopq
real(kind=wp),	intent(in)			::	xnr
integer,	intent(in)			::	jr
integer,	intent(in)			::	izn